From: John Paul Wallington <jpw@pobox.com>
Date: Wed, 28 Apr 2004 23:19:43 +0000 (+0000)
Subject: (toplevel): Require cl at compile time.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~22855
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=06a97d3bfe554f7a8a53ca62c4b4d747f8900c9f;p=emacs.git

(toplevel): Require cl at compile time.
Remove conditional definitions of `ignore-errors' and `caddar'
because they occur at run time.
---

diff --git a/lisp/thumbs.el b/lisp/thumbs.el
index 9458f0351ab..206492dee08 100644
--- a/lisp/thumbs.el
+++ b/lisp/thumbs.el
@@ -56,6 +56,8 @@
 
 ;;; Code:
 
+(eval-when-compile
+  (require 'cl))
 (require 'dired)
 
 ;; Abort if in-line imaging isn't supported (i.e. Emacs-20.7)
@@ -182,18 +184,6 @@ see some of your images."
     (make-directory thumbs-thumbsdir)
     (message "Creating thumbnails directory")))
 
-(when (not (fboundp 'ignore-errors))
-  (defmacro ignore-errors (&rest body)
-    "Execute FORMS; if anz error occurs, return nil.
-Otherwise, return result of last FORM."
-    (let ((err (thumbs-gensym)))
-      (list 'condition-case err (cons 'progn body) '(error nil)))))
-
-(when (not (fboundp 'caddar))
-  (defun caddar (x)
-    "Return the `car' of the `cdr' of the `cdr' of the `car' of X."
-    (car (cdr (cdr (car x))))))
-
 (defvar thumbs-gensym-counter 0)
 
 (defun thumbs-gensym (&optional arg)